home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / EDITORS / ZAP130 / !Zap / !Run < prev    next >
Encoding:
Text File  |  1995-05-29  |  1.6 KB  |  50 lines
  1. |
  2. | !Run file for Zap
  3. | (c) D.H.Symes 1991-1995
  4. |
  5.  
  6. | Set up directory paths and load sprites
  7. Set Zap$Dir <Obey$Dir>
  8. Set Zap$3rdParty <Zap$Dir>.3rdParty
  9. Set ZapFonts$Path <Zap$Dir>.Fonts.
  10. Iconsprites <Zap$Dir>.!Sprites
  11.  
  12. | Find operating system version
  13. SetEval Zap$OSVsn 350
  14. RMEnsure UtilityModule 3.50 SetEval Zap$OSVsn 300
  15. RMEnsure UtilityModule 3.10 SetEval Zap$OSVsn 200
  16. | To turn off dynamic areas uncomment the following line
  17. | SetEval Zap$OSVsn 300
  18.  
  19. | Claim file types and taskwindows
  20. Set Alias$@RunType_FFF Run <Zap$Dir>.!Run %%*0
  21. Set Alias$Taskwindow "Basic -quit <Zap$Dir>.Code.Taskwindow "
  22.  
  23. | Check Zap isn't already running
  24. Set Zap$Temp "loaded"
  25. RMEnsure Zap 0.01 SET Zap$Temp "notloaded"
  26. IF Zap$Temp="loaded" AND Zap$OSVsn=200 THEN ERROR 0 Zap is already loaded
  27. IF Zap$Temp="loaded" THEN %Basic -quit <Zap$Dir>.Code.Check
  28.  
  29. | The following lines are maintained by the ZapSetup application. Altering
  30. | them directly may confuse it!
  31.  
  32. | ZapSetup config start
  33. | Default options
  34. Set Zap$Templates <Zap$Dir>.Templates.Ebourne
  35. Set Zap$Menus     <Zap$Dir>.Menus
  36. Set Zap$Keys      <Zap$Dir>.Keys
  37. Set Zap$Options   <Zap$Dir>.!Config
  38. Set Zap$External  <Zap$Dir>.External
  39. | ZapSetup config end
  40.  
  41. | Force template file to Symes if on Risc OS 2
  42. IF Zap$OSVsn<300 THEN Set Zap$Templates <Zap$Dir>.Templates.Symes
  43.  
  44. | Load modules and start Zap task (possibly loading a file).
  45. | Do NOT load extension modules here, see the External file.
  46. RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
  47. RMEnsure ZapRedraw   0.22 RMLoad <Zap$Dir>.Code.ZapRedraw
  48. RMEnsure HidePointer 0.11 RMLoad <Zap$Dir>.Code.HidePtr
  49. RMLoad <Zap$Dir>.Code.Zap
  50. Zap_Desktop %0